﻿Public Class FrmFullSize

    Private Sub FrmFullSize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then Me.Dispose()
    End Sub

    Private Sub FrmFullSize_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.AutoScroll = True
    End Sub

    Private Sub PicZoomout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicZoomout.Click
        With Me.PictureBox1
            .Height = .Height + 100
            .Width = .Width + 100
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        End With
    End Sub

    Private Sub PicZoomIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicZoomIn.Click

        With Me.PictureBox1
            .Height = .Height - 100
            .Width = .Width - 100
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        End With
    End Sub

    Private Sub FrmFullSize_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        PicZoomIn.Left = Me.Width - 50
        PicZoomout.Left = Me.Width - 80
    End Sub

   
End Class